100
How do I enable the cross link support ( rectangular )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",0,76
			With .Add("Element <sha ;;0>C",-76,32)
				.AutoSize = False
				.Height = 32
			End With
			With .Add("Element <sha ;;0>D",76,32)
				.AutoSize = False
				.Height = 32
			End With
		End With
		With .Links
			With .Add(Surface1.Elements.Item(1),Surface1.Elements.Item(2))
				.StartPos = 1
				.EndPos = 1
			End With
			With .Add(Surface1.Elements.Item(2),Surface1.Elements.Item(1))
				.StartPos = 1
				.EndPos = 1
			End With
			.Add Surface1.Elements.Item(3),Surface1.Elements.Item(4)
			With .Add(Surface1.Elements.Item(4),Surface1.Elements.Item(3))
				.StartPos = 0
				.EndPos = 2
			End With
		End With
		.ShowLinks = 33 ' ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
	End With
End Function
</SCRIPT>
</BODY>

99
How do I show a link frmo bottom to top, or reverse, not from left to right

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",0,64
		End With
		With .Links
			With .Add(Surface1.Elements.Item(1),Surface1.Elements.Item(2))
				.StartPos = 1
				.EndPos = 1
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

98
What options to align the elements do I have if I use Arrange method

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.BeginUpdate 
		.ShowGridLines = True
		With .Elements
			h1 = .Add("Top Alignment").ID
			.Add "Element"
			.Add "Element"
			.Add "Element"
			h2 = .Add("Center Alignment",,96).ID
			.Add "Element",,96
			.Add "Element",,96
			.Add "Element",,96
			h3 = .Add("Bottom Alignment",,178).ID
			.Add "Element",,192
			.Add "Element",,192
			.Add "Element",,192
		End With
		With .Links
			.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
			.Add Surface1.Elements.Item(1),Surface1.Elements.Item(3)
			.Add Surface1.Elements.Item(2),Surface1.Elements.Item(4)
			.Add Surface1.Elements.Item(2),Surface1.Elements.Item(3)
			.Add Surface1.Elements.Item(5),Surface1.Elements.Item(6)
			.Add Surface1.Elements.Item(5),Surface1.Elements.Item(7)
			.Add Surface1.Elements.Item(6),Surface1.Elements.Item(8)
			.Add Surface1.Elements.Item(6),Surface1.Elements.Item(7)
			.Add Surface1.Elements.Item(9),Surface1.Elements.Item(10)
			.Add Surface1.Elements.Item(9),Surface1.Elements.Item(11)
			.Add Surface1.Elements.Item(10),Surface1.Elements.Item(12)
			.Add Surface1.Elements.Item(10),Surface1.Elements.Item(11)
		End With
		.DefArrange(3) = 0
		.Arrange h1
		.DefArrange(3) = 1
		.Arrange h2
		.DefArrange(3) = 2
		.Arrange h3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

97
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B").ID = "B"
			.Add("Element C").ID = "C"
			.Add("Element D").ID = "D"
		End With
		With .Links
			.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B")
			.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C")
			.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("D")
			.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("C")
		End With
		.Arrange 
	End With
End Function
</SCRIPT>
</BODY>

96
Is it possible to change the distance between elements, when calling the Arrange method

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B").ID = "B"
			.Add("Element C").ID = "C"
			.Add("Element D").ID = "D"
		End With
		With .Links
			.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B")
			.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C")
			.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("D")
			.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("C")
		End With
		.DefArrange(1) = 0
		.DefArrange(2) = 0
		.Arrange 
	End With
End Function
</SCRIPT>
</BODY>

95
How do I organize vertically the elements

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B").ID = "B"
			.Add("Element C").ID = "C"
			.Add("Element D").ID = "D"
		End With
		With .Links
			.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B")
			.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C")
			.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("D")
			.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("C")
		End With
		.ShowLinksType = 2
		.DefArrange(0) = 1
		.Arrange 
	End With
End Function
</SCRIPT>
</BODY>

94
Is there a way to create a link which has the same start and end element

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "Element"
		End With
		With .Links
			.Add Surface1.Elements.Item(1),Surface1.Elements.Item(1)
		End With
	End With
End Function
</SCRIPT>
</BODY>

93
How can I prevent hiding the item when an item with an outgoing link, is collapsed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("Item <sha ;;0>1").ID = 1
			.Insert("Item <sha ;;0>2",1).ID = 2
			With .Add("Item <sha ;;0>3")
				.ID = 3
				.X = 96
				.Y = 23
			End With
		End With
		With .Links
			.Add Surface1.Elements.Item(2),Surface1.Elements.Item(3)
		End With
		.ShowLinksOnCollapse = True
	End With
End Function
</SCRIPT>
</BODY>

92
How can I change the toolbar's visual appearance

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(148) = &H1000000
		.Background(149) = RGB(255,255,255)
		.Background(150) = RGB(40,40,40)
		.Background(153) = &H1606060
		.Background(154) = RGB(240,240,240)
		.Background(155) = &H1a0a0a0
		.Background(156) = RGB(255,255,255)
	End With
End Function
</SCRIPT>
</BODY>

91
How can I change the toolbar's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(149) = RGB(255,255,255)
	End With
End Function
</SCRIPT>
</BODY>

90
How can I fit or ensure that all elements are in the control's client area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("Element A",-500,-500).BackColor = RGB(0,255,0)
			.Add("Element B",500,500).BackColor = RGB(255,0,0)
			.Add "Element C",48,24
		End With
		.FitToClient 
	End With
End Function
</SCRIPT>
</BODY>

89
When I use the context menu to insert an image, the size seems to be fixed to 32 pixels. How can I control / change this

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
	' Element.Edit(0,"multiline,wordwrap")
	' Element.AutoSize = True
	With Surface1
		alert( "Call Edit(0) method of the Element object" )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
	' SelElement(0).Edit(0,"multiline,wordwrap")
	With Surface1
		.Selection = .ElementFromPoint(-1,-1)
		alert( "Call Edit(0) method of the SelElement(0) property" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
		.Background(99) = &H1000000
		.Background(102) = &H1fcddc0
		.Background(88) = &H3000000
		.SelectObjectColor = RGB(192,221,252)
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
		With .Elements
			.Add("Element A").ID = "A"
			With .Add("Custom-size pictures:<br><img>pic1:24</img>,<img>pic2:48</img> ,... and so on.",96,48)
				.ID = "B"
				.CaptionSingleLine = False
			End With
			.Add "Element C",48,24
		End With
		.EditContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value = %i ? '<b>'+value : ( value =" & _
	" vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<" & _
	"img>pic1:32</img>[id=57763],<img>pic2:32</img>[id=57763],Others[id=1000](default[group=3](<img>pic3</img>[id=57763]),<font ;6>ot" & _
	"her sizes[sep],<img>pic3:16</img>[id=57763],<img>pic3:32</img>[id=57763],<img>pic3:64</img>[id=57763]))"
	End With
End Function
</SCRIPT>
</BODY>

88
Can I add images to node while editing the node using the Edit method

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
	' Element.Edit(0,"multiline,wordwrap")
	' Element.AutoSize = True
	With Surface1
		alert( "Call Edit(0) method of the Element object" )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
	' SelElement(0).Edit(0,"multiline,wordwrap")
	With Surface1
		.Selection = .ElementFromPoint(-1,-1)
		alert( "Call Edit(0) method of the SelElement(0) property" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(99) = &H1000000
		.Background(102) = &H10000ff
		.SelectObjectStyle = -1
		.SelectObjectColor = RGB(192,221,252)
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Elements
			.Add("Element A").ID = "A"
			With .Add("This is a node that displays pictures:<br><img>pic1:48</img>,<img>pic2:48</img> ,... and so on.",96,48)
				.ID = "B"
				.CaptionSingleLine = False
			End With
			.Add("Element C",48,24).BackColor = RGB(255,255,255)
		End With
	End With
End Function
</SCRIPT>
</BODY>

87
I am using the Edit method to edit the node, but still not able to display multiple lines. Is this possible

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
	' Element.Edit(0,"multiline,wordwrap")
	' Element.AutoSize = True
	With Surface1
		alert( "Call Edit(0) method of the Element object" )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
	' SelElement(0).Edit(0,"multiline,wordwrap")
	With Surface1
		.Selection = .ElementFromPoint(-1,-1)
		alert( "Call Edit(0) method of the SelElement(0) property" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(99) = &H1000000
		.Background(102) = &H10000ff
		.SelectObjectStyle = -1
		.SelectObjectColor = RGB(192,221,252)
		With .Elements
			.Add("Element A").ID = "A"
			With .Add("Right-<b>Click</b> the node to edit it.",96,48)
				.ID = "B"
				.CaptionSingleLine = False
			End With
			.Add("Element C",48,24).BackColor = RGB(255,255,255)
		End With
	End With
End Function
</SCRIPT>
</BODY>

86
How can I change the visual appearance of the edit's context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
	' Element.Edit(0)
	' Element.AutoSize = True
	With Surface1
		alert( "Call Edit(0) method of the Element object" )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
	' SelElement(0).Edit(0)
	With Surface1
		.Selection = .ElementFromPoint(-1,-1)
		alert( "Call Edit(0) method of the SelElement(0) property" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(99) = &H1000000
		.Background(102) = &H10000ff
		.SelectObjectStyle = -1
		.SelectObjectColor = RGB(192,221,252)
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Right-Click to edit this node",96,48).ID = "B"
			.Add("Element C",48,24).BackColor = RGB(255,255,255)
		End With
	End With
End Function
</SCRIPT>
</BODY>

85
How can I edit the node once the user right-click the element

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
	' Element.Edit(0)
	' Element.AutoSize = True
	With Surface1
		alert( "Call Edit(0) method of the Element object" )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
	' SelElement(0).Edit(0)
	With Surface1
		.Selection = .ElementFromPoint(-1,-1)
		alert( "Call Edit(0) method of the SelElement(0) property" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,48).ID = "B"
			.Add("Element C",48,24).BackColor = RGB(255,255,255)
		End With
	End With
End Function
</SCRIPT>
</BODY>

84
I wish to return the name that is displayed in the Element that I have selected

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_SelectionChanged()
	With Surface1
		alert( "The number of selected elements is: " )
		alert( .SelCount )
		alert( .SelElement(0).Caption )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.HideSel = False
		.SelectObjectColorInactive = .SelectObjectColor
		.SelectObjectTextColorInactive = .SelectObjectTextColor
		With .Elements
			.Add("Element 1").Selected = True
			With .Add("Element 2")
				.X = 32
				.Y = 32
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

83
Been playing with the surface control with the embedded ExGrid ActiveX...I can see most events coming through via the Surface control but I can't get the OnOLEStartDrag event to fire

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_OleEvent(Element,Ev)
	' Ev.Param(1).Value = 2
	' Ev.Param(0).Value.SetData("items to be carried")
	With Surface1
		alert( Ev )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.BeginUpdate 
		With .Elements
			With .InsertControl("Exontrol.Grid")
				.ElementFormat = """client"""
				With .Object
					.BeginUpdate 
					.OLEDropMode = 1
					.Columns.Add "Default"
					.Items.AddItem "Click the item so it gets the focus"
					.EndUpdate 
				End With
			End With
		End With
		.MoveCorner 17,0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

82
Is it possible to assign/add a percent to an element

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .Add("Element A")
				.ID = "A"
				.CaptionAlign = 1
				.AutoSize = False
				.Height = 36
				.Width = 96
				.MinHeight = 36
				.BackgroundExt = "none[(2,100%-15,100%-4,14)](left[50%,back=RGB(0,255,0),text=`15%`,align=0x11,pattern=6,frame])"
				.BackgroundExtValue(2,2) = "75%"
				.BackgroundExtValue(2,4) = .BackgroundExtValue(2,2)
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

81
How can I disable selecting the nodes/elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowSelectObject = 0
		.AllowSelectNothing = False
		.AllowSelectObjectRect = 0
		.AllowToggleSelectKey = 0
	End With
End Function
</SCRIPT>
</BODY>

80
How can I set my zooming levels on the control's toolbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ZoomLevels = "75,100,150,200"
		.AllowLinkObjects = 0
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
			.Add("Element C",48,12).BackColor = RGB(255,255,255)
		End With
	End With
End Function
</SCRIPT>
</BODY>

79
How can I prevent zooming the surface

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowZoomSurface = 0
		.AllowZoomWheelSurface = False
		.ToolBarFormat = "-1,100"
	End With
End Function
</SCRIPT>
</BODY>

78
How can I prevent adding the links
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowLinkObjects = 0
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
			.Add("Element C",48,12).BackColor = RGB(255,255,255)
		End With
	End With
End Function
</SCRIPT>
</BODY>

77
How can I fix all elements on the surface, so no moving or resizing is allowed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowResizeObject = 0
		.AllowMoveObject = 0
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
			.Add("Element C",48,12).BackColor = RGB(255,255,255)
		End With
	End With
End Function
</SCRIPT>
</BODY>

76
How can I link elements with no pressing the SHIFT key
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowInsertObject = False
		.AllowLinkObjects = 1
		.AllowMoveObject = 0
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
			.Add("Element C",48,12).BackColor = RGB(255,255,255)
		End With
	End With
End Function
</SCRIPT>
</BODY>

75
How can I disable creating the tree/hierarchies
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowInsertObject = False
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
			.Add("Element C",48,12).BackColor = RGB(255,255,255)
		End With
	End With
End Function
</SCRIPT>
</BODY>

74
How can I create new elements using simple clicks rather than double clicks

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowCreateObject = 1
	End With
End Function
</SCRIPT>
</BODY>

73
How can I disable creating new elements at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowCreateObject = 0
	End With
End Function
</SCRIPT>
</BODY>

72
I've noticed that the links cut the elements. Is it possible to show the links on the back

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ShowLinksType = 2
		.ShowLinks = 1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
			.Add("Element C",48,12).BackColor = RGB(255,255,255)
		End With
		With .Links
			.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).Caption = "link"
		End With
	End With
End Function
</SCRIPT>
</BODY>

71
How can I show a picture on the link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
		End With
		With .Links
			.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).Caption = "<img>pic1:24</img>"
		End With
		.ShowLinksType = 2
	End With
End Function
</SCRIPT>
</BODY>

70
How can I show a caption on the link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
		End With
		With .Links
			.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).Caption = "link"
		End With
		.ShowLinksType = 2
	End With
End Function
</SCRIPT>
</BODY>

69
I am using EBN to show my arrows, the question is if I can make it bigger/larger

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .VisualAppearance
			.Add 1,"c:\exontrol\images\normal.ebn"
			.Add 2,"CP:1 -2 -2 2 2"
		End With
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
			.Add("Element C",96,-24).ID = "C"
		End With
		With .Links
			.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B")
			.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C")
		End With
		.LinksArrowColor = &H2000000
	End With
End Function
</SCRIPT>
</BODY>

68
Is it possible to show different type of arrows for links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		With .Elements
			.Add("Element A").ID = "A"
			.Add("Element B",96,24).ID = "B"
			.Add("Element C",96,-24).ID = "C"
		End With
		With .Links
			.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).ArrowColor = RGB(255,0,0)
			.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("C")).ArrowColor = &H1000000
		End With
	End With
End Function
</SCRIPT>
</BODY>

67
How can I remove or clear the entire surface
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Elements.Add "element"
		.Elements.Clear 
		.Home 
	End With
End Function
</SCRIPT>
</BODY>

66
How can I programmatically add a child element, or create a tree/hierarchy

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("Root").ID = "rootID"
			.Insert "Child 1","rootID"
			.Insert("Child 2","rootID").ID = "childID"
			.Insert "Child 3","rootID"
			.Insert "Sub-Child 1.2","childID"
			.Insert "Sub-Child 2.2","childID"
		End With
	End With
End Function
</SCRIPT>
</BODY>

65
I've noticed that the element's background is transparent. Can I make it opaque

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("new 1").BackColor = RGB(255,255,255)
			.Add("new 1",24,24).BackColor = RGB(240,240,240)
		End With
	End With
End Function
</SCRIPT>
</BODY>

64
How can I add a resizable element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .Add("new 1")
				.AutoSize = False
				.Resizable = True
			End With
			With .Add("new 1",24,24)
				.AutoSize = False
				.Resizable = True
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

63
How can I programmatically add a new element

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "new 1"
			.Add "new 1",24,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

62
Is it possible to assign a tooltip to an element

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Elements.Add("Element with a Tooltip").ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."
	End With
End Function
</SCRIPT>
</BODY>

61
How do I specify direct/straight link for all links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ShowLinksType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
		With .Links
			.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
		End With
	End With
End Function
</SCRIPT>
</BODY>

60
How do I show a direct/straight link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
		With .Links
			.Add(Surface1.Elements.Item(1),Surface1.Elements.Item(2)).ShowLinkType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect
		End With
	End With
End Function
</SCRIPT>
</BODY>

59
How can I ensure that a specified element fits the surface's visible area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .Add("Element A",-100).Pattern
				.Type = 6
				.Color = RGB(224,224,224)
			End With
			.Add("Element B",2000).ScrollTo 17
		End With
	End With
End Function
</SCRIPT>
</BODY>

58
Is it possible to show a pattern like ( not available ) over an element

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .Add("Element+Pattern",-100).Pattern
				.Type = 6
				.Color = RGB(224,224,224)
			End With
			.Add "Element",100
		End With
	End With
End Function
</SCRIPT>
</BODY>

57
How can I specify a different overview color for the element

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add("Element+A",-100).OverviewColor = RGB(255,0,0)
			.Add "Element+B",100
		End With
		.ScrollPos(True) = 512
	End With
End Function
</SCRIPT>
</BODY>

56
I've noticed that some lines are shown on the border, how can I get ride of them

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "Element+A",-100
			.Add "Element+B",100
		End With
		.ScrollPos(True) = 512
		.OverviewColor = -1
	End With
End Function
</SCRIPT>
</BODY>

55
How can I handle clicking an icon or a picture

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_HandCursorClick(Element,Hit,Key)
	With Surface1
		alert( Key )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		With .Elements.Add("Caption")
			.Pictures = "1,2/pic1/pic2"
			.PicturesAlign = 33
			.ShowHandCursorOn = 771 ' ShowHandCursorOnEnum.exShowHandCursorExtraPictures Or ShowHandCursorOnEnum.exShowHandCursorPictures Or ShowHandCursorOnEnum.exShowHandCursorIcon Or ShowHandCursorOnEnum.exShowHandCursorPicture
			.CaptionAlign = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

54
How can I display a picture

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.Elements.Add("Element").Pictures = "pic1/pic2"
	End With
End Function
</SCRIPT>
</BODY>

53
How can I display a picture

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
		.Elements.Add "Icon <img>pic1</img> or <img>pic2</img>"
	End With
End Function
</SCRIPT>
</BODY>

52
How can I display an icon

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Elements.Add("Element").Pictures = "0/1,2"
	End With
End Function
</SCRIPT>
</BODY>

51
How can I display an icon

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Elements.Add "Icon <img>1</img> or <img>2</img>"
	End With
End Function
</SCRIPT>
</BODY>

50
How can I prevent moving all descendent/outgoing elements when focused element is moved, more like a free move
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
		With .Links
			.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
		End With
		.ShowLinksType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect
		.AllowMoveDescendents = False
	End With
End Function
</SCRIPT>
</BODY>

49
How can I display the +/- expand/collapse glyphs next to linked elements

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
		With .Links
			.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
		End With
		.Elements.Item(1).Expanded = False
		.ExpandLinkedElements = True
	End With
End Function
</SCRIPT>
</BODY>

48
How can I host the Exontrol.Button inside the surface

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .Add("ActiveX")
				.Type = 2
				.ElementFormat = """check"":18,""client"""
				.ShowCheckBox = True
				.Control = "Exontrol.Button"
				.Object.Caption = "<sha ;;0>button"
				.Height = 32
				.Width = 128
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

47
How can I host a Command button

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .InsertControl("Forms.CommandButton.1")
				.ElementFormat = """check"":18,""client"""
				.Object.Caption = "command"
				.ShowCheckBox = True
				.Height = 48
				.Width = 128
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

46
How can I handle the events of the inner ActiveX control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_OleEvent(Element,Ev)
	With Surface1
		alert( Ev )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .InsertControl("Forms.CommandButton.1")
				.ElementFormat = """check"":18,""client"""
				.Object.Caption = "command"
				.ShowCheckBox = True
				.Height = 48
				.Width = 128
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

45
How can I display a checkbox while my node hosts an ActiveX inside

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .InsertControl("Forms.CommandButton.1")
				.ElementFormat = """check"":18,""client"""
				.Object.Caption = "command"
				.ShowCheckBox = True
				.Height = 48
				.Width = 128
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

44
Is it possible to display a caption while the element hosts an ActiveX control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .InsertControl("Forms.CommandButton.1")
				.ElementFormat = "18;""caption""/""client"""
				.Object.Caption = "command"
				.Caption = "Forms.CommandButton"
				.CaptionAlign = 1
				.Height = 48
				.Width = 128
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

43
I host an ActiveX control but it does not cover the whole element. What can be done

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .InsertControl("Forms.CommandButton.1")
				.ElementFormat = """client"""
				.Object.Caption = "command"
				.Height = 32
				.Width = 128
			End With
			With .InsertControl("Forms.CommandButton.1")
				.ElementFormat = """client"""
				.Object.Caption = "command"
				.Height = 32
				.Width = 128
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

42
How can I host my ActiveX to the surface (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .InsertControl("Forms.CommandButton.1")
				.ElementFormat = """client"""
				.Object.Caption = "command"
				.Height = 32
				.Width = 128
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

41
How can I host my ActiveX to the surface (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .Add("ActiveX")
				.Type = 2
				.ElementFormat = """client"""
				.Control = "Forms.CommandButton.1"
				.Object.Caption = "command"
				.Height = 32
				.Width = 128
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

40
How can I define the elements with a solid color on the background

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(88) = -1
		.Background(89) = -1
		.Background(90) = RGB(255,0,0)
		With .Elements
			.Add "Node A"
			.Add "Node B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

39
Can I display the status to a different part of the element

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Elements.Add("Node").StatusAlign = 3
	End With
End Function
</SCRIPT>
</BODY>

38
How can I remove or hide the status part of the event

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_AddElement(Element)
	' Element.StatusSize = 0
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(89) = -1
		With .Elements
			.Add "Node A"
			.Add "Node B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

37
How can I change the visual appearance of the border for all elements

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(88) = &H1000000
		With .Elements
			.Add "Element+A"
			.Add "Element+B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

36
How can I change the color of the border for all elements

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(88) = RGB(0,255,0)
		With .Elements
			.Add "Element+A"
			.Add "Element+B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

35
How can I remove the border for all elements

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(88) = -1
		With .Elements
			.Add "Element+A"
			.Add "Element+B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

34
How do I change the visual appearance the glpyh that shows when the element is added as a child

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
		.Background(86) = &H1000000
		.Background(87) = &H2000000
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

33
Is it possible to change the color for the glpyh that shows when the element is added as a child

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(86) = RGB(255,0,0)
		.Background(87) = RGB(255,0,0)
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

32
How can I change the color to show a valid link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(83) = RGB(0,255,0)
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

31
How can I change the color to show an invalid link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(82) = RGB(0,255,0)
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

30
How can I disable adding the elements as child of other nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowInsertObject = False
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

29
How can I prevent moving the outgoing /descendents elements when moving an element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ShowLinksType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect
		.AllowMoveDescendents = False
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
		With .Links
			.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
		End With
	End With
End Function
</SCRIPT>
</BODY>

28
How can I add programatically a link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
		With .Links
			.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
		End With
	End With
End Function
</SCRIPT>
</BODY>

27
How do I prevent adding a link between elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowLinkObjects = 0
		With .Elements
			.Add "Element <sha ;;0>A"
			.Add "Element <sha ;;0>B",96,24
		End With
	End With
End Function
</SCRIPT>
</BODY>

26
How can I hide the 100% button ( zoom ) on the control's toolbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ToolBarFormat = "-1,100"
	End With
End Function
</SCRIPT>
</BODY>

25
Is it possible to hide the Home button on the control's toolbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ToolBarFormat = "-1,101"
	End With
End Function
</SCRIPT>
</BODY>

24
How can I hide the grid lines, including the axis

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ShowGridLines = False
		.AxisStyle = -1
	End With
End Function
</SCRIPT>
</BODY>

23
How can I hide the grid lines

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ShowGridLines = False
	End With
End Function
</SCRIPT>
</BODY>

22
How can I clear the images shown on the control's toolbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ToolBarReplaceIcon 0,-1
		.ToolBarRefresh 
	End With
End Function
</SCRIPT>
</BODY>

21
How can I replace the default icons shown on the control's toolbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ToolBarReplaceIcon 0,-1
		.ToolBarImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	End With
End Function
</SCRIPT>
</BODY>

20
How can I replace the default icons shown on the control's toolbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ToolBarImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ToolBarCaption(100) = "<img>3</img> aka1"
	End With
End Function
</SCRIPT>
</BODY>

19
How can I add an anchor element to the control's toolbar

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_ToolBarAnchorClick(AnchorID,Options)
	With Surface1
		alert( AnchorID )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ToolBarFormat = "-1,100,101,|,102"
		.ToolBarCaption(102) = "<a a1>anchor</a>"
	End With
End Function
</SCRIPT>
</BODY>

18
How can I add a button/image to the control's toolbar

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_ToolBarClick(ID,SelectedID)
	With Surface1
		alert( ID )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ToolBarImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.ToolBarFormat = "-1,100,101,102"
		.ToolBarCaption(102) = "<img>3</img> new"
	End With
End Function
</SCRIPT>
</BODY>

17
How can I add a button to the control's toolbar

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_ToolBarClick(ID,SelectedID)
	With Surface1
		alert( ID )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ToolBarFormat = "-1,100,101,102"
		.ToolBarCaption(102) = "<sha ;;0>new"
	End With
End Function
</SCRIPT>
</BODY>

16
How can I hide the control's toolbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.ToolBarVisible = False
	End With
End Function
</SCRIPT>
</BODY>

15
How can I prevent selecting the elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.AllowSelectObject = 0
		.AllowSelectObjectRect = 0
		.AllowToggleSelectKey = 0
		.Elements.Add "element"
	End With
End Function
</SCRIPT>
</BODY>

14
How can I show the selected elements the same as the control has the focus

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.HideSel = False
		.SelectObjectColorInactive = .SelectObjectColor
		.SelectObjectTextColorInactive = .SelectObjectTextColor
		.Elements.Add("element").Selected = True
	End With
End Function
</SCRIPT>
</BODY>

13
How can I show the selected elements with a different border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.HideSel = False
		.SelectObjectStyle = 48
		.SelectObjectColor = &H1000000
		.SelectObjectTextColor = RGB(0,0,0)
		.SelectObjectColorInactive = .SelectObjectColor
		.SelectObjectTextColorInactive = .SelectObjectTextColor
		.Elements.Add("element").Selected = True
	End With
End Function
</SCRIPT>
</BODY>

12
How can I show the selected elements with a different background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.HideSel = False
		.SelectObjectStyle = -1
		.SelectObjectColor = RGB(255,0,0)
		.SelectObjectTextColor = RGB(255,255,255)
		.SelectObjectColorInactive = .SelectObjectColor
		.SelectObjectTextColorInactive = .SelectObjectTextColor
		.Elements.Add("element").Selected = True
	End With
End Function
</SCRIPT>
</BODY>

11
Is it possible to add an inner control on the surface

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_OleEvent(Element,Ev)
	With Surface1
		alert( Ev )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .Add("activex hosting")
				.Type = 2
				.Control = "Forms.CommandButton.1"
				.Caption = "Command Button"
				.Height = 64
				.Width = 128
				.ElementFormat = "14;""caption""/""client"""
				.CaptionAlign = 1
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

10
How can I make the control read-only
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_LayoutStartChanging(Operation)
	With Surface1
		alert( Operation )
		.CancelLayoutChanging 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			.Add "new element"
		End With
	End With
End Function
</SCRIPT>
</BODY>

9
How can I handle clicking a picture on the element

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_HandCursorClick(Element,Hit,Key)
	With Surface1
		alert( Key )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Elements
			With .Add("new element")
				.CaptionAlign = 2
				.PicturesAlign = 0
				.ShowHandCursorOn = 3335 ' ShowHandCursorOnEnum.exShowHandCursorAnchorAll Or ShowHandCursorOnEnum.exShowHandCursorPictures Or ShowHandCursorOnEnum.exShowHandCursorIcon Or ShowHandCursorOnEnum.exShowHandCursorPicture
				.Pictures = "0,1,2"
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

8
How can I show the hand cursor when user hovers the element's image

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_HandCursorClick(Element,Hit,Key)
	With Surface1
		alert( Key )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Elements
			With .Add("new element")
				.CaptionAlign = 2
				.PicturesAlign = 0
				.ShowHandCursorOn = 3335 ' ShowHandCursorOnEnum.exShowHandCursorAnchorAll Or ShowHandCursorOnEnum.exShowHandCursorPictures Or ShowHandCursorOnEnum.exShowHandCursorIcon Or ShowHandCursorOnEnum.exShowHandCursorPicture
				.Pictures = "0,1,2"
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

7
How can I show the hand cursor when user hovers the element's checkbox

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		With .Elements
			With .Add("new element")
				.CaptionAlign = 2
				.CheckBoxAlign = 0
				.ShowCheckBox = True
				.ShowHandCursorOn = 3084 ' ShowHandCursorOnEnum.exShowHandCursorAnchorAll Or ShowHandCursorOnEnum.exShowHandCursorCheck
			End With
		End With
	End With
End Function
</SCRIPT>
</BODY>

6
How can I remove the status part for all elements

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_AddElement(Element)
	' Element.StatusSize = 0
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(89) = -1
		.Elements.Add "new element"
	End With
End Function
</SCRIPT>
</BODY>

5
How can I remove the border for all elements

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.Background(88) = -1
		.Elements.Add "new element"
	End With
End Function
</SCRIPT>
</BODY>

4
How do I edit the element's caption once the user creates the element

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
	' Element.Edit(0)
	' Element.AutoSize = True
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

3
How can I align the element's checkbox next to the text

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.BeginUpdate 
		With .Elements
			With .Add("text")
				.ShowCheckBox = True
				.CaptionAlign = 2
				.CheckBoxAlign = 0
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2
How can I assign a check-box to all elements

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_AddElement(Element)
	' Element.ShowCheckBox = True
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.BeginUpdate 
		With .Elements
			.Add "",-24,-24
			.Add("").Checked = 1
		End With
		.Home 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1
How do I change the control's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Surface1
		.BackColor = RGB(240,240,240)
	End With
End Function
</SCRIPT>
</BODY>